object frmCustomers: TfrmCustomers
  Left = 381
  Top = 193
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Customers'
  ClientHeight = 383
  ClientWidth = 646
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object edtName: TEdit
    Left = 8
    Top = 8
    Width = 153
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 0
  end
  object btnFind: TButton
    Left = 368
    Top = 8
    Width = 97
    Height = 21
    Caption = 'Find by first name'
    Default = True
    TabOrder = 3
    OnClick = btnFindClick
  end
  object btnClear: TButton
    Left = 168
    Top = 8
    Width = 89
    Height = 21
    Caption = 'Clear'
    Default = True
    TabOrder = 1
    OnClick = btnClearClick
  end
  object pnlMain: TPanel
    Left = 8
    Top = 40
    Width = 633
    Height = 305
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 5
    object lblCheckings: TLabel
      Left = 8
      Top = 168
      Width = 68
      Height = 13
      Caption = 'Checkings of: '
    end
    object lblName: TLabel
      Left = 88
      Top = 168
      Width = 177
      Height = 21
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object barMain: TToolBar
      Left = 2
      Top = 2
      Width = 629
      Height = 33
      BorderWidth = 1
      ButtonHeight = 27
      ButtonWidth = 27
      DisabledImages = frmMain.disableImageList
      EdgeBorders = [ebBottom]
      Flat = True
      Images = frmMain.hotImageList
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      object btnUpdate: TToolButton
        Left = 0
        Top = 0
        Hint = 'Update customer'
        Caption = 'btnUpdate'
        ImageIndex = 0
        OnClick = btnUpdateClick
      end
      object btnAdd: TToolButton
        Left = 27
        Top = 0
        Hint = 'Add new customer'
        Caption = 'btnAdd'
        ImageIndex = 1
        OnClick = btnAddClick
      end
      object btnDelete: TToolButton
        Left = 54
        Top = 0
        Hint = 'Delete customer'
        Caption = 'btnDelete'
        ImageIndex = 2
        OnClick = btnDeleteClick
      end
      object btnPurchases: TToolButton
        Left = 81
        Top = 0
        Caption = 'btnPurchases'
        ImageIndex = 5
        Visible = False
        OnClick = btnPurchasesClick
      end
      object ToolButton1: TToolButton
        Left = 108
        Top = 0
        Width = 9
        Caption = 'ToolButton1'
        ImageIndex = 3
        Style = tbsSeparator
      end
      object btnReport: TToolButton
        Left = 117
        Top = 0
        Caption = 'btnReport'
        ImageIndex = 3
        OnClick = btnReportClick
      end
    end
    object grdCustomers: TDBGrid
      Left = 8
      Top = 40
      Width = 617
      Height = 112
      DataSource = srcCustomers
      Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnKeyDown = grdCustomersKeyDown
      Columns = <
        item
          Alignment = taLeftJustify
          Expanded = False
          FieldName = 'ID'
          Title.Caption = 'CUSTOMER NO.'
          Width = 92
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CUSTOMER_ID'
          Title.Caption = 'ID'
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NAME'
          Title.Caption = 'FIRST NAME'
          Width = 165
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LAST_NAME'
          Title.Caption = 'LAST NAME'
          Width = 126
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PHONE'
          Width = 111
          Visible = True
        end>
    end
    object grdCheckings: TDBGrid
      Left = 8
      Top = 185
      Width = 617
      Height = 112
      DataSource = srcCheckings
      Options = [dgTitles, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = grdCheckingsDrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'RIGHT'
          Width = 250
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LEFT'
          Width = 250
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DATE'
          Width = 93
          Visible = True
        end>
    end
  end
  object btnClose: TBitBtn
    Left = 456
    Top = 352
    Width = 89
    Height = 25
    Cancel = True
    Caption = '&Close'
    TabOrder = 6
    OnClick = btnCloseClick
    Glyph.Data = {
      4E010000424D4E01000000000000760000002800000012000000120000000100
      040000000000D800000000000000000000001000000010000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777770007
      777777000000777777780EE0777777000000777777870EE60777770000007777
      78780EE6607777000000777787870EE6660777000000777700000EE666607700
      0000777708880EE6066077000000777708880EE0806077000000777708880EE0
      F06077000000777708880EE6066077000000777708880EE66660770000007777
      08880EE6666077000000777708880FE66660770000007777088880FE66607700
      000077770888880FE66077000000777708888880FE6077000000777708888888
      0FE077000000777700000000000077000000}
  end
  object btnHelp: TBitBtn
    Left = 552
    Top = 352
    Width = 89
    Height = 25
    TabOrder = 7
    Kind = bkHelp
  end
  object btnFindByLastName: TButton
    Left = 472
    Top = 8
    Width = 97
    Height = 21
    Caption = 'Find by last name'
    Default = True
    TabOrder = 4
    OnClick = btnFindByLastNameClick
  end
  object btnFindByID: TButton
    Left = 264
    Top = 8
    Width = 97
    Height = 21
    Caption = 'Find by ID'
    Default = True
    TabOrder = 2
    OnClick = btnFindByIDClick
  end
  object tblCustomers: TTable
    Active = True
    DatabaseName = 'OPTICA'
    SessionName = 'Default'
    IndexFieldNames = 'NAME'
    TableName = 'Customers.db'
    Left = 8
    Top = 352
  end
  object srcCustomers: TDataSource
    DataSet = tblCustomers
    OnDataChange = srcCustomersDataChange
    Left = 72
    Top = 352
  end
  object tblCheckings: TTable
    Active = True
    DatabaseName = 'OPTICA'
    Filtered = True
    TableName = 'Checkings.db'
    Left = 40
    Top = 352
  end
  object srcCheckings: TDataSource
    DataSet = tblCheckings
    Left = 104
    Top = 352
  end
end
